#!/usr/bin/perl

# Иванов Илья
# 23.11.2013

# ЗАДАНИЕ:
# Создать запрос для выделения повторяющихся стоящих рядом слов.

# РЕШЕНИЕ:
# Читает файл, переданный первым аргументом.
# Ищет повторяющиеся стоящие рядом слова, находящиеся на одной строке.
# Поиск регистронезависим.
# Последовательность повторяющихся слов выделяется скобками [].
# Результат отправляется на стандартный вывод.

while ($line = <>) {
    $line =~ s/(\b([\w-]+)(\s+\2)+\b)/[$1]/ig;
    print $line;
}